home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nivb / nwqueue.bas < prev    next >
BASIC Source File  |  1995-05-09  |  5KB  |  84 lines
  1. 'NWPRTQUE.BAS  NetWare Print Queue Services Interface for Visual Basic For Windows
  2. 'Version 1.0
  3. 'Novell Systems Research Department, Novell, Inc.
  4. 'Copyright (c) 1993, Novell, Inc.
  5. 'This interface is not supported through Novell's regular
  6. 'support channels.  See README.TXT for more information.
  7.  
  8. 'Queue Job Control Flags
  9. Global Const QF_OPERATOR_HOLD = &H80
  10. Global Const QF_USER_HOLD = &H40
  11. Global Const QF_ENTRY_OPEN = &H20
  12. Global Const QF_SERVICE_RESTART = &H10
  13. Global Const QF_AUTO_START = &H8
  14.  
  15. 'Queue Status Flags
  16. Global Const QS_CANT_ADD_JOBS = &H1
  17. Global Const QS_SERVERS_CANT_ATTACH = &H2
  18. Global Const QS_CANT_SERVICE_JOBS = &H4
  19.  
  20. 'Error return codes
  21. Global Const Q_ERROR = 208
  22. Global Const NO_QUEUE = 209
  23. Global Const NO_Q_SERVER = 210
  24. Global Const NO_Q_RIGHTS = 211
  25. Global Const Q_FULL = 212
  26. Global Const NO_Q_JOB = 213
  27. Global Const NO_JOB_RIGHTS = 214
  28. Global Const Q_SERVICING = 215
  29. Global Const STN_NOT_SERVER = 217
  30. Global Const Q_NOT_ACTIVE = 216
  31. Global Const Q_HALTED = 218
  32. Global Const MAX_Q_SERVERS = 219
  33.  
  34. Type JOB_STRUCT
  35.      reserved As String * 10
  36.      clientStation As Long
  37.      clientTaskNumber As Long
  38.      clientIDNumber As Long
  39.      targetServerIDNumber As Long
  40.      targetExecutionTime As String * 6
  41.      jobEntryTime As String * 6
  42.      jobNumber As Long
  43.      jobType As Integer
  44.      jobPosition As Integer
  45.      jobControlFlags As Integer
  46.      jobFileName As String * 14
  47.      jobFileHandle As String * 6
  48.      serverStation As Long
  49.      serverTaskNumber As Long
  50.      serverIDNumber As Long
  51.      textJobDescription As String * 50
  52.      clientRecordArea As String * 152
  53. End Type
  54.  
  55. Type STATUS_RECORD
  56.      record As String * 64
  57. End Type
  58.  
  59. Declare Function AbortServicingQueueJobAndFile Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal jobNumber&, ByVal fileHandle%) As Integer
  60. Declare Function AttachQueueServerToQueue Lib "NWNETAPI.DLL" (ByVal queueID&) As Integer
  61. Declare Function ChangeQueueJobEntry Lib "NWNETAPI.DLL" (ByVal queueID&, Job As JOB_STRUCT) As Integer
  62. Declare Function ChangeQueueJobPosition Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal jobNumber&, ByVal newPosition%) As Integer
  63. Declare Function ChangeToClientRights Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal jobNumber&) As Integer
  64. Declare Function CloseFileAndAbortQueueJob Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal jobNumber&, ByVal fileHandle%) As Integer
  65. Declare Function CloseFileAndStartQueueJob Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal jobNumber&, ByVal fileHandle%) As Integer
  66. Declare Function CreateQueue Lib "NWNETAPI.DLL" (ByVal queueName$, ByVal queueType%, ByVal directoryHandle%, ByVal pathName$, queueID&) As Integer
  67. Declare Function CreateQueueJobAndFile Lib "NWNETAPI.DLL" (ByVal queueID&, Job As JOB_STRUCT, fileHandle%) As Integer
  68. Declare Function DestroyQueue Lib "NWNETAPI.DLL" (ByVal queueID&) As Integer
  69. Declare Function DetachQueueServerFromQueue Lib "NWNETAPI.DLL" (ByVal queueID&) As Integer
  70. Declare Function FinishServicingQueueJobAndFile Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal jobNumber&, ByVal charge&, ByVal fileHandle%) As Integer
  71. Declare Function GetQueueJobList Lib "NWNETAPI.DLL" (ByVal queueID&, jobCount&, jobNumberList&, ByVal maxJobNumbers&) As Integer
  72. Declare Function GetQueueJobsFileSize Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal jobNumber&, fileSize&) As Integer
  73. 'serverIDList is an array of maxNumberOfServers Longs
  74. 'serverStationList is an array of maxNumberOfServers Longs
  75. Declare Function ReadQueueCurrentStatus Lib "NWNETAPI.DLL" (ByVal queueID&, queueStatus&, numberOfJobs&, numberOfServers&, serverIDList&, serverStationList&, ByVal maxNumberOfServers&) As Integer
  76. Declare Function ReadQueueJobEntry Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal jobNumber&, Job As JOB_STRUCT) As Integer
  77. Declare Function ReadQueueServerCurrentStatus Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal serverID&, ByVal serverStation&, serverStatusRecord As STATUS_RECORD) As Integer
  78. Declare Function RemoveJobFromQueue Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal jobNumber&) As Integer
  79. Declare Function RestoreQueueServerRights Lib "NWNETAPI.DLL" () As Integer
  80. Declare Function ServiceQueueJobAndOpenFile Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal targetJobType%, Job As JOB_STRUCT, fileHandle%) As Integer
  81. Declare Function SetQueueCurrentStatus Lib "NWNETAPI.DLL" (ByVal queueID&, ByVal queueStatus&) As Integer
  82. Declare Function SetQueueServerCurrentStatus Lib "NWNETAPI.DLL" (ByVal queueID&, serverStatusRecord As STATUS_RECORD) As Integer
  83.  
  84.